Ephedra californica recovery

Purpose

To explore ephedra recovery following clipping. Year two in a long-term shrub removal experiment. Aboveground clipping. Panoche Hills Ecological Reserve. Removal done by A. Liczner, A. Filazzola, T. Noble, and M. Westphal. Loss of shrub effects on animals experiment separate from this survey initiated by A. Liczner and completed 2016.

ecoblender

Data

library(tidyverse)
library(plotly)
data <- read_csv("data/EH.recovery.2016.csv")
data
## # A tibble: 20 × 6
##       ID length width height resprout
##    <chr>  <dbl> <dbl>  <dbl>    <int>
## 1   P137   1.90  3.30   0.60        9
## 2   P146   3.40  2.15   0.70       10
## 3  P182*     NA    NA     NA       15
## 4   P197   1.35  0.60   0.63        3
## 5   P200   0.00  0.00   0.00        0
## 6   P217   1.15  1.25   0.85       15
## 7   P245   3.20  2.50   0.80        8
## 8   P271   2.80  2.55   0.71        8
## 9   P273   0.80  0.90   0.55        1
## 10  P303   3.50  2.80   0.60       13
## 11  P444   2.75  0.95   0.88        5
## 12  P452   1.20  0.65   0.90        2
## 13  P462   2.33  0.85   0.70        6
## 14  P544   3.55  2.05   0.85        8
## 15  P614   1.70  1.15   0.43       12
## 16  P615   1.10  1.35   0.85        2
## 17  P618   2.10  0.95   0.70        4
## 18  P621   1.85  0.90   0.65       10
## 19  P651   2.55  2.40   1.00       10
## 20 P183*   1.40  1.20   0.60        6
## # ... with 1 more variables: observations <chr>
data <- data %>% mutate(volume = ((length + width)/2)^3*3.14*(1/3))

EDA

p1 <- ggplot(data, aes(resprout)) + 
  geom_histogram(binwidth = 1.5, fill = "dodgerblue")
ggplotly(p1)
p2 <- ggplot(data, aes(volume, resprout)) + 
  geom_point(color = "dodgerblue") + 
  geom_smooth(method = lm)
ggplotly(p2)